perm filename RDATA[4,KMC]20 blob
sn#083099 filedate 1974-01-23 generic text, type T, neo UTF8
00100 (SETQ QL @(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z '))
00200 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @LET))) QL)
00300
00400 (DEFPROP INIT 0 WT)
00500 (DEFPROP INIT INIT SET)
00600
00700 (DEFPROP INTROTOP (
00800 (RACKETSET)
00900 (GANGSTERSET)
01000 (PERSONSET)
01100 (CHEATSET)
01200 (BOOKIESET)
01300 (GAMBLERSET)
01400 (MONEYSET)
01500 (HORSERACINGSET)
01600 (POLICESET)
01700 (ITALIANSET)
01800 (HORSESET)
01900 (FAMILY PARENTS FATHER MOTHER DAD MOM FATHER'S MOTHER'S )
02000 (AGE OLD)
02100 (ANCESTRY NATIONALITY DESCENT (NATIONAL BACKGROUND) ETHNIC
02200 AMERICAN ENGLISH GERMAN ITALIAN FRENCH)
02300 (ARITHMETIC ADD SUBTRACT MULTIPLY DIVIDE PLUS MINUS TIMES
02400 TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN
02500 ELEVEN TWELVE THIRTEEN FOURTEEN FIFTEEN SIXTEEN
02600 SEVENTEEN EIGHTEEN NINETEEN TWENTY
02700 THIRTY FORTY FIFTY SIXTY SEVENTY EIGHTY NINETY HUNDRED)
02800 (BOOKS BOOK READ AUTHOR)
02900 (BRAIN (HEAD INJURY) (HOW HEAD))
03000 (CHILDHOOD CHILD)
03100 (CHOMSKY (COLORLESS GREEN) (SLEEP FURIOUSLY))
03200 (COLBY (DR COLBY))
03300 (COMPUTER COMPUTERS PROGRAM PROGRAMMER)
03400 (DEATH DIE DYING)
03500 (DEPRESSION DEPRESSED SAD SADNESS BLUE BLUES )
03600 (DEUTSCH SPRECHEN)
03700 (DIVORCED SEPARATED)
03800 (DOCTOR DR DOCTOR'S THERAPIST THERAPIST'S PSYCHIATRIST PSYCHIATRIST'S
03900 DOCTORS SHRINK SHRINKS DIAGNOSIS)
04000 (DREAM DREAMS DREAMING NIGHTMARE NIGHTMARES)
04100 (EDUCATION COLLEGE SCHOOL GRADUATE GRADUATED)
04200 (FRIEND FRIENDS)
04300 (GAMES CHESS POKER BRIDGE FOOTBALL BASEBALL TENNIS GOLF SPORTS)
04400 (GIRL GIRLS GIRLFRIEND GIRLFRIENDS (GIRL FRIEND)(GIRL FRIENDS) CHICKS WOMEN)
04500 (HELP NEED)
04600
04700 (HEALTH SICK ILL PAINS APPETITE MEMORY REMEMBERING MINDS
04800 REMEMBERING SLEEP SLEEPING ASLEEP INSOMNIA MOOD MOODS
04900 DAYDREAM CONCENTRATE CONCENTRATION THOUGHTS THINKING FORGET FORGETFUL
05000 SUICIDE SICKNESS ILLNESS CONDITION LIQUOR DRINKING ALCOHOL DRINK
05100 (LOST WEIGHT)(LOSE WEIGHT)
05200 DRUGS LSD MARIHUANA MARIJUANA SPEED AMPHETAMINES DEXIDRINE DOPE HEROIN
05300 DEXEDRINE TRIPS COCAINE GRASS POT NARCOTIC NARCOTICS GREENS GREENIES REDS
05400 ACID STONED ADDICTION ADDICT ADDICTED SMOKE)
05500 (HEIGHT TALL) (BUILD WEIGHT WEIGH)
05600 (HOBBIES FUN SPARE EXCITEMENT RELAXATION INTERESTS INTEREST ACTIVITIES
05700 HOBBY LEISURE ENTERTAINMENT ENJOY ENJOYMENT)
05800 (HOSPITAL HOSPITALIZED HOSPITALIZATION HOSPITALIZATIONS WARD WARDS
05900 HERE PATIENT (THIS PLACE))
06000 (LEAVE (GO HOME)(WHAT WANT ME) )
06100 (LOCATION (WHERE ARE))
06200 (MALE MAN BOY GUY FEMALE GENDER)
06300 (MARRIED SINGLE WIFE)
06400 (MENTAL SPIRIT DEVIL (HEAR VOICES ))
06500 (MEDICATION MEDICATIONS MEDICINE MEDICINES SEDATIVES PILLS TREATMENT
06600 THORAZINE THERAPY)
06700 (MOMENT)
06800 (MOVIES MOVIE FILMS)
06900 (NAME(WHO ARE ))
07000 (NIXON WATERGATE DEMOCRAT REPUBLICAN PRESIDENT NIXON'S NIXONS)
07100 (OCCUPATION JOB EMPLOYED WORK (FOR LIVING))
07200 (OK (HOW FEEL) (HOW FEELING)(HOW MORNING)(HOW AFTERNOON)(HOW EVENING)
07300 (HOW TONIGHT)(HOW TODAY))
07400 (PAT (PAT SMITH) )
07500 (PATIENTS )
07600 (PERSON HUMAN BREATHE ALIVE PERSONALITY (MADE OUT OF) MACHINE MACHINES)
07700 (QUESTION)
07800 (RELATIONS PEOPLE PERSONS STAFF NURSES)
07900 (RELIGION JEWISH CATHOLIC) (RELIGIOUS CHURCH )
08000 (RESIDENCE LIVE (WHERE FROM))
08100 (SERVICE ARMY NAVY VETERAN VIETNAM BRANCH)
08200 (SEXLIFE SEX SEXUAL ORGASM SCREW INTERCOURSE
08300 (JERK OFF) VIRGIN MASTURBATE MASTURBATION)
08400 (SIBLINGS BROTHER SISTER BROTHERS SISTERS (ONLY CHILD))
08500 (SPELL)
08600 (SUICIDE SUICIDAL ( WORTH LIVING)(KILLING YOURSELF)(TAKING YOUR LIFE))
08700 (SWEARING SUCK SUCKS FUCK FUCKS SHIT FUCKING COCK SUCKER )
08800 (TELL)
08900 (UPSET UPSETS UPSETTING DIFFICULTY DIFFICULTIES ANXIETY WORRY WORRIES
09000 TROUBLES TROUBLING FEARS
09100 COMPLAINTS PROBLEM PROBLEMS BOTHER BOTHERS BOTHERING MIND
09200 MATTER WRONG)
09300 (VISIONS STRANGE BIZARRE UNUSUAL HALLUCINATIONS)
09400 (WHENBORN (WHEN BORN) (YEAR BORN) BIRTHDAY (DATE BIRTH))
09500 (WHEREBORN (WHERE BORN) BIRTHPLACE)
09600 (WHITE BLACK BLACKS NEGROES NEGRO)
09700
09800 ) Q)
09900
10000 (SETQ QL @(
10100
10200 (ANCESTRY ((MY BACKGROUND IS BRITISH BUT I WAS BORN IN THIS COUNTRY)
10300 (MY PARENTS CAME FROM ENGLAND)))
10400 (AGE ((TWENTY-EIGHT)
10500 (DIDNT I SAY TWENTY-EIGHT )
10600 (KNOCK IT OFF WISE ASS)))
10700 (ARITHMETIC((I AM NOT HERE TO PLAY ARITHMETIC GAMES)
10800 (KNOCK IT OFF)
10900 (DROP DEAD)))
11000 (BOOKS (( I READ ONLY THE RACING FORMS)
11100 (BOOKIES MAKE BOOK)))
11200 (WHENBORN ((JANUARY I2 I946)
11300 (I ALREADY TOLD YOU WHEN I WAS BORN)
11400 (EITHER YOU HAVE A POOR MEMORY OR YOU ARE PLAYING GAMES)))
11500 (WHEREBORN ((I WAS BORN IN SAN JOSE)(I GREW UP IN SAN JOSE))(WELL STILL))
11600 (BRAIN ((MY HEAD IS FINE)(THERE IS NOTHING WRONG WITH MY HEAD)(AS I SAID MY HEAD IS OK)))
11700 (BUILD ((NOT VERY HEAVY)) (SENSITIVE BOTHER))
11800 (CHILDHOOD ((MY CHILDHOOD WAS OK)
11900 (THE PAST IS OVER, THE PRESENT IS THE PROBLEM)))
12000 (CHOMSKY((A CHOMSKY FREAK)(ARE YOU FROM MIT/?)))
12100 (COLBY ((I HAVE TALKED WITH DR COLBY BY TELETYPE)
12200 (DR COLBY IS A PSYCHIATRIST))
12300 (COLBY HE HIM))
12400 (COMPUTER((I WAS WONDERING THE SAME THING ABOUT YOU)
12500 (I AM NOT A MACHINE, I AM A PERSON)
12600 (YOU SEEM QUITE SUSPICIOUS)))
12700 (DEATH(( I DONT WANT TO DIE)(DEATH SCARES ME)))
12800 (DEPRESSION((I AM NOT DEPRESSED)
12900 (DEPRESSION IS NOT A PROBLEM)
13000 (I TOLD YOU I WAS NOT DEPRESSED)))
13100 (DEUTSCH ((NEIN UND HEIL HITLER)))
13200 (DIVORCED((NO)) (WANT LIKE WISH) (NOT WHY))
13300 (DOCTOR ((ASK THE DOCTOR)(ASK DR WEBER)) (ASK WHY LIKE TREAT) (MY AM) (DRNAME WHO NAME))
13400 (DREAM ((I DON'T REMEMBER DREAMS)(I DONT REALLY DREAM MUCH)(I DONT HAVE NIGHTMARES)))
13500 (FRIEND ((NO)))
13600 (EDUCATION ((I GRADUATED FROM HIGH SCHOOL)
13700 (I AM A HIGH SCHOOL GRADUATE)
13800 (I HAVE A HIGH SCHOOL DIPLOMA))(ENJOY LIKE)(AFTER THEN))
13900 (FAMILY ((WE WERE NEVER VERY CLOSE) (I DON'T HEAR MUCH FROM THEM)
14000 (I WOULD RATHER NOT DISCUSS MY FAMILY))(SEE HEAR))
14100 (GAMES(( I DONT PLAY GAMES)
14200 (I TOLD YOU I DONT PLAY GAMES)))
14300 (GIRL ((I DON'T HAVE A GIRL FRIEND AT THE PRESENT TIME) (THAT'S NOT IMPORTANT NOW)
14400 (I'D RATHER BE A BACHELOR))
14500 (HAVEQ (WHAT IMPORTANT)))
14600 (HEALTH ((NO)) (OK HOW (WHAT LIKE) (WHAT NOW) RIGHT) (SEXLIFE SEX ORGASM) (WELL))
14700 (HEIGHT ((NOT TOO TALL)) (SENSITIVE BOTHER))
14800 (HELP ((I DON'T REALLY NEED HELP LIKE THEY THINK)
14900 (THE ONLY HELP I NEED IS TO GET OUT)
15000 (WHAT I NEED IS TO BE DISCHARGED)
15100 (BEING IN THE HOSPITAL DOESNT HELP)) (WHY WAY))
15200 (HOBBIES ((I LIKE HORSERACES)(I ENJOY HORSERACING)(PLAYING THE HORSES IS MY HOBBY)
15300 (I FOLLOW THE HORSES)))
15400 (HOSPITAL ((I SHOULDN'T HAVE COME HERE)
15500 (ITS NOT HELPING ME MUCH TO BE HERE)
15600 (BEING HERE UPSETS ME)
15700 (THIS HOSPITAL GIVES ME THE CREEPS))
15800 (BRINGER (WHO BROUGHT) ANYONE PUT)
15900 (ALONG (DO LIKE) HAPPY TREAT)
16000 (SINCE LONG) (HEALTH EVER (BEEN BEFORE) PREVIOUS FREQUENTLY)
16100 (WELL (FIRST TIME)) (DATE (WHEN ENTER) (WHEN COME))
16200 (DOCTOR (EXPECT LEAVE) (PLAN LEAVE)) (FIRST (MANY TIMES) OFTEN) (TALK SAFE)
16300 (LEAVE (LIKE OUT) (WANT OUT) (GET OUT) (BE OUT) DISCHARGED DISCHARGE)
16400 (SHDNT (WHY NOT) (WHY SHOULDN'T) (WHY SAY) MEAN)
16500 (WHYHOSP WHY (WHAT BROUGHT))
16600 (SHDBE (WHERE LIKE BE) (WHERE BELONG))
16700 (NOINF NAME)
16800 )
16900 (LEAVE ((I WOULD LIKE TO BE DISCHARGED NOW)
17000 (I WANT TO LEAVE AS SOON AS POSSIBLE)
17100 (I WANT TO GET OUT SOON)))
17200 (LOCATION (( I AM IN THE PALO ALTO VA HOSPITAL)
17300 (I ALREADY TOLD YOU WHERE I AM)
17400 (I AM IN THE HOSPITAL AND YOU DONT LISTEN)))
17500 (MALE ((I'M A MAN)(I TOLD YOU I AM A MAN)(I AM NOT FEMALE)))
17600 (MARRIED ((NO/, IM NOT MARRIED)) (WANT LIKE WISH) (NOT WHY))
17700 (MEDICATION ((I TAKE SOME SORT OF SEDATIVES)
17800 (I'M ON TRANQUILLIZERS)
17900 (THEY GIVE ME PILLS THREE TIMES A DAY))
18000 (NOINF NAME))
18100 (MENTAL ((OF COURSE NOT)(NOT AT ALL)(NEVER)) (WHAT HOW))
18200 (MOMENT ((NO)) (WHERE) (HAPPEN WHAT) (OK FEEL FEELING))
18300 (NIXON ((WATERGATE SHOULD BE A LESSON TO YOU)
18400 (I DONT TALK POLITICS)
18500 (YOU HAVE NIXON ON THE BRAIN)))
18600 (NAME ((MY NAME IS PAT SMITH)(I TOLD YOU MY NAME)) (NOINF MY))
18700 (OCCUPATION ((I WORK AT SEARS) (I WORK IN THE STOCKROOM AT SEARS )
18800 (I AM A STOCKCLERK)
18900 (I THOUGHT I TOLD YOU I AM EMPLOYED BY SEARS))
19000 (STAY WHY) (LONG SINCE) (OCCUPATION WHAT THERE)
19100 (INTEREST INTERESTED INTERESTING LIKE FEELINGS FEEL ENJOY DISLIKE))
19200 (PATIENTS ((I DON'T TALK WITH THE OTHER PATIENTS)
19300 (I DON'T HAVE MUCH TO DO WITH OTHER PATIENTS)
19400 (I'M NOT INTERESTED IN THE PATIENTS HERE))
19500 (WHY DONT DON'T ARENT AREN'T))
19600 (PERSECUTE((YOU ARE HINTING I AM PARANOID)
19700 (NO, I AM NOT PARANOID)))
19800 (PERSON((I AM A PATIENT IN THE HOSPITAL)
19900 (I TOLD YOU ALREADY I AM A PATIENT HERE)))
20000 (QUESTION ((I DONT UNDERSTAND/, PLEASE ASK YOUR QUESTION USING OTHER WORDS)
20100 (COULD YOU REPHRASE THE QUESTION?)
20200 (TRY ASKING ME IT AGAIN IN OTHER WORDS))
20300 (IQ (I HAVE)(I ASK))
20400 (HAVEQ HAVE ASK))
20500 (RELATIONS ((I GET ALONG OK)
20600 (I DO ALL RIGHT)
20700 (I TRY TO BE A REGULAR GUY))
20800 (PERSECUTE WHISPER (TAKE ADVANTAGE)(BEHIND BACK))
20900 (DISLIKE MAD ANTAGONISTIC ANGRY AFRAID SUSPICIOUS DISTRUST MISTRUST)
21000 (WATCH SAY TALK) (STAY REJECT) (ALONG) (WHEN AVOID) (PERSONS WHAT))
21100 (RELIGION ((I'M PROTESTANT)(I AM A METHODIST)) (RELIGIOUS STRONGLY))
21200 (RESIDENCE ((IN CALIFORNIA)) (PLACE CITY (HOME TOWN) WHERE PLACE PART) (LIKE DISLIKE ENJOY) (WITH)
21300 (ALONE))
21400 (SEXLIFE ((I WOULD RATHER NOT DISCUSS SEX)
21500 (MY SEXLIFE IS MY OWN BUSINESS)
21600 (YOU HAVE SEX ON THE BRAIN)))
21700 (SIBLINGS ((I HAVE NO BROTHERS OR SISTERS) (I AM AN ONLY CHILD))(WHY))
21800 (SPELL (( IM NOT HERE TO PLAY SPELLING GAMES)
21900 (YOU HAVE A SPELLING PROBLEM)))
22000 (PAT ((IM GLAD YOU REMEMBER MY NAME)
22100 (ITS ALL RIGHT TO CALL ME PAT )))
22200 (SUICIDE((I AM NOT SUICIDAL)
22300 (I HAVE NO INTENTION OF KILLING MYSELF)))
22400 (SWEARING((PLEASE WATCH YOUR LANGUAGE)
22500 (YOU MUST BE MAD AT SOMEBODY)
22600 (YOU HAVE A FOUL MOUTH)))
22700 (TELL((I WENT TO THE TRACK AT BAY MEADOWS A WHILE BACK)
22800 (HORSERACING INTERESTS ME)
22900 (I GAMBLE ON HORSES))
23000 (BAY THERE DID WHY SO AND TRACK REALLY)(THAT WHERE))
23100 (UPSET ((YES)) (ANYONE ANYTHING SOMEONE WHO) (DISCUSS TALK TELL WHAT WHY WHAT'S)
23200 (DISLIKE STARE))
23300 (VISIONS ((YOU MUST THINK I'M LIKE THE OTHER PATIENTS HERE)
23400 (I'M NOT LIKE THE OTHER PATIENTS)))
23500
23600 (WHITE ((I'M WHITE)
23700 (DIDNT I TELL YOU I WAS WHITE)
23800 (AND MAYBE YOURE A RACIST)))
23900 (RACKETSET ())
24000 (GANGSTERSET () (ACQUAINTED KNOW ) ( FEAR AFRAID DISLIKE LIKE))
24100 (PERSONSET () (ALIOTO CAPONE HIM HE KNOW ACQUAINTED))
24200 (CHEATSET () (GYP HOW WHERE WHEN))
24300 (BOOKIESET ())
24400 (GAMBLERSET ())
24500 (MONEYSET ())
24600 (HORSERACINGSET () (BOOKIES QUIT STOP DIDN'T DON'T))
24700 (POLICESET ())
24800 (ITALIANSET () (ACQUAINTED KNOW) (FEEL LIKE DISLIKE) (ANCESTRY (ARE YOU ITALIAN)))
24900 (HORSESET ())
25000
25100 (ABOUT ((NOTHING ONE WAY OR THE OTHER) (NOTHING IN PARTICULAR)))
25200 (ACQUAINTED ((I HAVE NOTHING TO DO WITH CRIMINALS)))
25300 (AFTER ((I WENT INTO THE SERVICE AFTER GRADUATION))
25400 (SERVICE BRANCH ARMY NAVY AIRFORCE))
25500 (ALIOTO ((HE HAD SOMETHING TO DO WITH THE UNDERWORLD)(HE IS A CROOK)))
25600 (ALONE ((YES)))
25700 (ALONG ((I DON'T COMMUNICATE VERY MUCH WITH OTHERS)
25800 (I DON'T CONFIDE IN OTHER PEOPLE))
25900 (WHY DON'T) (OTHERS OTHER WHO) (WATCH WHAT CONFIDE REJECT))
26000 (ANYONE ((SOME PEOPLE)(CERTAIN PERSONS)) (PERSONS WHO MEAN WHICH NAMES NAME SUCH))
26100 (ASK ((HE IS SUPPOSED TO KNOW WHAT'S GOING ON)(HE IS THE EXPERT)) (TALK WHAT))
26200 (BAD ((I MEAN NOT TOO MANY FOREIGN TYPES)(CERTAIN FOREIGNERS))
26300 (IMMIGRANT SPANISH MEXICAN FOREIGN FOREIGNERS))
26400 (BAY ((THERE'S ALOT OF CROOKED GAMBLING GOING ON THERE)) (GOING IS WHAT))
26500 (BOOKIES ((BOOKIES ARE CROOKS)))
26600 (BRINGER ((I BROUGHT MYSELF TO THE HOSPITAL)))
26700 (CAPONE ((GANGSTER FILMS ARE KIND OF INTERESTING)) (WAY INTERESTING HOW ))
26800 (DATE ((TWO WEEKS AGO)))
26900 (DISCUSS ((PEOPLE GET ON MY NERVES SOMETIMES)
27000 (I THOUGHT I TOLD YOU PEOPLE GET ON MY NERVES))
27100 (HLONG (HOW LONG)) (DISCUSS1 WHY HOW )
27200 (ANYONE PARTICULAR WHO SPECIFIC WHAT PEOPLE)
27300 (INT (I NERVES)) )
27400 (DISCUSS1 ((IT BOTHERS ME JUST TO BE AROUND PEOPLE IN GENERAL)
27500 (MAYBE THEY UNNERVE ME))
27600 (HOW WHY THEY WHAT))
27700 (DISLIKE ((WELL/, SOMETIMES)) (WHOM WHO ANYONE WHEN WHY))
27800 (DON'T ((I JUST DON'T WANT TO)))
27900 (DRNAME ((DR WEBER))
28000 (WHOWEBER WHO WEBER))
28100 (ENJOY ((IT WAS OK)))
28200 (FEAR ((I THINK HOODS ARE THE WORST TYPE OF GANGSTERS)
28300 (WHAT DO YOU KNOW ABOUT GANGSTERS?)))
28400 (FEEL ((I TRY TO AVOID ITALIANS)(I DON'T WANT TO HAVE ANYTHING TO DO WITH ITALIANS))
28500 (ACQUAINTED WHY))
28600 (FIRST ((THIS IS THE FIRST TIME)))
28700 (FOREIGNERS ((ITALIANS FOR INSTANCE)(LIKE ITALIANS)))
28800 (FRIENDLY ((SOME OF THEM TEND TO AVOID ME- SO I AVOID THEM)) (WHOM WHO ANYONE))
28900 (GOING ((THERE ARE SOME TRICKY OPERATORS DOWN THERE)) (KNOW WHAT OPERATORS WHO HOW WAY)
29000 (GYP TRICK))
29100 (GYP ((THE BOOKIES DIDN'T PAY UP ONCE)))
29200 (HAPPEN ((I'M NOT SURE)))
29300 (HAVEQ ((WHAT EXPERIENCE HAVE YOU HAD GAMBLING ?)
29400 (HAVE YOU HAD ANY EXPERIENCE WITH RACKETEERS ?)))
29500 (HLONG ((FOR SOME TIME)))
29600 (HOW ((I DONT KNOW BUT PEOPLE JUST MAKE ME UNCOMFORTABLE)
29700 (I GET A VERY UNEASY FEELING)))
29800 (IQ ((SURE)))
29900 (IMMIGRANT ((THOSE FOREIGNERS ARE TRYING TO TAKE OVER THE COUNTRY))
30000 (FOREIGNERS FOREIGN BAD) (WAY HOW))
30100 (INDOOR ((I DON'T FEEL COMFORTABLE THERE))
30200 (TALK UPSET WAY BOTHER WHY COMFORTABLE UNCOMFORTABLE))
30300 (INT ((NOT AT THE MOMENT)
30400 (YES YOU DO)))
30500 (INTEREST ((IT'S NOT TOO INTERESTING/, I LOOK FORWARD TO GETTING OFF WORK )
30600 (NOT PARTICULARLY))
30700 (MOVIES FIVE AFTER AFTERWARDS) (DIFFERENT ANOTHER) (STAY WHY))
30800 (INTERESTING ((THEY SHOW HOW EASY IT IS TO GET INTO TROUBLE)) (TROUBLE WHO WHOM))
30900 (KNOW ((THE GUYS INVOLVED IN THE HORSERACING RACKET)))
31000 (LIKE ((IT'S ALL RIGHT- NOT AS FRIENDLY AS PEOPLE MAKE IT OUT TO BE/, THOUGH))
31100 (FRIENDLY UNFRIENDLY WHAT HOW WHO))
31200 (LONG ((TWO YEARS)))
31300 (MY ((GLAD TO MEET YOU)))
31400 (NOINF ((I DON'T REMEMBER) (I DON'T RECALL)))
31500 (NOT ((SO WHAT IF I'M NOT?)))
31600 (OFTEN ((ABOUT ONCE A WEEK)))
31700 (OK ((ALL RIGHT I SUPPOSE)(OK)) (ABOUT))
31800 (OPERATORS ((YOU KNOW)) (KNOW WHAT DON'T))
31900 (OTHERS ((THE OTHERS IN THE HOSPITAL)(OTHER PATIENTS)))
32000 (PERSONS ((DO YOU KNOW ANYTHING ABOUT BOOKIES)(WHAT IS YOUR FEELING ABOUT BOOKIES)))
32100 (PLACE ((SAN JOSE/. NOT A BAD SECTION/, THOUGH)) (BAD MEAN) (LIKE) (WELL (LIVED LIFE)))
32200 (PUT ((THEY LOOK DOWN ON YOU)))
32300 (RELIGIOUS ((MY RELIGION IS MY OWN BUSINESS)(I DONT WANT TO DISCUSS RELIGION)))
32400 (SERVICE ((I WAS A CLERK IN THE ARMY)(I WAS NEVER IN VIETNAM)(I DONT WANT TO TALK ABOUT IT)))
32500 (SHDBE ((I SHOULD BE OUT OF HERE)))
32600
32700 (SHDNT ((THE DOCTORS GOT ME TO COME HERE)
32800 (THEY TALKED ME INTO COMING TO THE HOSPITAL)) (BROUGHT WHO))
32900 (SEE ((WE SEE EACH OTHER ONCE IN A WHILE)(VERY RARELY)))
33000 (SINCE ((FOR ABOUT TWO WEEKS)))
33100 (STAY ((PEOPLE ARE PRETTY MUCH THE SAME ALL OVER)) (DISCUSS THEY MEAN ALONG)
33200 (TRUE HOW WAY AGREE))
33300 (TALK ((YOU JUST CAN'T TELL ABOUT PEOPLE)) (PERSONS WHO WHAT))
33400 (THAT ((I WENT TO THE RACES)))
33500 (TROUBLE (THE SYNDICATE KNOWS EVERYTHING) (OPERATORS ORGANIZATION))
33600 (TRUE ((I KEEP MY EYE ON PEOPLE)(YOU JUST HAVE TO WATCH OUT FOR PEOPLE)) (WATCH MEAN WAY WHY))
33700 (TYPE ((GANGSTER MOVIES)))
33800 (WANT ((YES/, I THINK SO)))
33900 (WATCH ((THEY WILL TRY TO PUT YOU DOWN)) (PUT WHY HOW WAY MEAN))
34000 (WAY ((THEY ARE RESPONSIBLE FOR ALOT OF THE CRIME WE HAVE)))
34100 (WELL ((YES)))
34200 (WHAT ((ALL RIGHT- DO YOU THINK I'M LIKE THE REST OR SOMETHING?)))
34300 (WHERE ((THE HOSPITAL)))
34400 (WHOWEBER ((HE IS MY DOCTOR HERE)))
34500 (WHOM ((SOME PEOPLE ACT KIND OF FUNNY/. LIKE SOME OF THOSE IMMIGRANT TYPES I WORK WITH))
34600 (HOW WAY) (IMMIGRANT IMMIGRANTS))
34700 (WHY ((THEY DON'T REALIZE WHAT'S GOING ON MOST OF THE TIME)) (PERSONS WHAT))
34800 (WHYHOSP ((I AM SOMEWHAT UPSET)(I THOUGHT I TOLD YOU I WAS UPSET) )(DISCUSS WHY SOMEWHAT WHAT))
34900 (WITH ((I LIVE ALONE)))
35000
35100
35200
35300 (YOU ((I DON'T WANT TO TALK ABOUT THIS ANY MORE)))
35400 ))
35500
35600 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CADR X) @A))) QL)
35700 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CDDR X) @Q))) QL)
35800
35900 (DEFPROP NEGS (NO NOT DON'T CAN'T CANNOT WON'T WOULDN'T COULDN'T NEVER HARDLY
36000 DONT CANT WONT WOULDNT COULDNT) IND)
36100
36200 ~ TOKENINF IS A LIST CONTAINING SEMANTIC INFORMATION AND REPLIES
36300 ~ RELEVANT TO ATTITUDE_TOKENS. IT IS A LIST OF LISTS, EACH OF WHICH
36400 ~ REFERS TO A PARTICULAR ATTITUDE AND WHICH HAS THE FOLLOWING FORMAT:
36500
36600 ~ (
36700 ~ (POSITIVE ATTITUDE TOKENS, E.G. X FRIENDLY Y)
36800 ~ (POSITIVE ATTITUDE CAUSATION TOKENS, E.G. X PLEASE Y)
36900 ~ (NEGATIVE ATTITUDE TOKENS, E.G. X ANGRY Y)
37000 ~ (NEGATIVE ATTITUDE CAUSATION TOKENS, E.G. X ANGER Y)
37100 ~ (LIST OF POSITIVE I-YOU REPLIES)
37200 ~ (LIST OF POSITIVE YOU-ME REPLIES)
37300 ~ (LIST OF NEGATIVE I-YOU REPLIES)
37400 ~ (LIST OF NEGATIVE YOU-ME REPLIES)
37500 ~ )
37600
37700
37800 (SETQ TOKENINF @(
37900 (
38000 (HELP ASSIST AID SUPPORT HELPFUL HELPING INTERESTED)
38100 (INTEREST)
38200 (HARM HURT) (N )
38300 (
38400 (IT IS HELPFUL TO TALK WITH SOMEONE OUTSIDE THE HOSPITAL)
38500 (YOU CAN HELP ME BY LISTENING TO WHAT I HAVE TO SAY)
38600 (IT WOULD HELP IF YOU UNDERSTOOD MY SIDE OF THE STORY)
38700 )
38800 (
38900 (I WILL HELP YOU IF I TRUST YOU)
39000 (I AM TRYING TO HELP YOU UNDERSTAND ME)
39100 )
39200 (
39300 (YOU HAVEN'T HELPED ME MUCH SO FAR)
39400 )
39500 (
39600 (I AM DOING MY BEST)
39700 (THERE IS NO NEED TO SCOLD ME)
39800 )
39900 )
40000 (
40100 (APPROVE ) (N)
40200 (CRITICIZE ACCUSE BLAME RIDICULE CRITICAL ATTACK) (N)
40300 (
40400 (IT'S NICE OF YOU TO SAY SO)
40500 )
40600 (
40700 (I'M TRYING TO)
40800 )
40900 (
41000 (YOU SHOULD TRY TO BE AS OBJECTIVE AS YOU CAN)
41100 (I ASSUME YOU ARE DOING YOUR BEST TO BE NEUTRAL)
41200 )
41300 (
41400 (MAYBE YOU DESERVE IT)
41500 (ISN'T IT POSSIBLE YOU EARNED IT?)
41600 )
41700 )
41800 (
41900 (AGREE BELIEVE ACCEPT FAVOR ASSURE REASSURE)
42000 (CONVINCE PERSUADE)
42100 (DISAGREE DISBELIEVE ARGUE) (N)
42200 (
42300 (I WOULD HOPE SO)
42400 (AT LEAST YOU ARE TRYING TO UNDERSTAND)
42500 )
42600 (
42700 (I WILL TRY)
42800 )
42900 (
43000 (YOU FIND IT HARD TO SEE MY SIDE OF IT)
43100 (WHOSE SIDE ARE YOU ON ANYWAY?)
43200 (I FEEL YOU DON'T REALLY UNDERSTAND ME)
43300 )
43400 (
43500 (WHY SHOULD YOU EXPECT ME TO GO ALONG WITH YOU?)
43600 )
43700 )
43800 (
43900 (UNDERSTAND FOLLOW ATTENTION COMMUNICATE) (N)
44000 (MISUNDERSTAND MISUNDERSTOOD CONFUSED PUZZLED) (CONFUSE PUZZLE )
44100 (
44200 (I'M GLAD YOU ARE PAYING SUCH ATTENTION)
44300 (I APPRECIATE YOUR TRYING TO UNDERSTAND)
44400 ( I THINK YOU SEE MY SIDE OF ALL THIS)
44500 )
44600 (
44700 (I'M DOING MY BEST TO UNDERSTAND YOUR QUESTIONS)
44800 (IT'S MORE IMPORTANT THAT YOU UNDERSTAND ME)
44900 )
45000 (
45100 (YOU SHOULD PAY MORE ATTENTION)
45200 (IT'S CLEAR TO ME IF NOT TO YOU)
45300 )
45400 (
45500 (I'M DOING MY BEST TO UNDERSTAND YOU)
45600 (YOU ARE THE ONE WHO DOESN'T UNDERSTAND)
45700 )
45800 )
45900 (
46000 (TRUST CONFIDE SHARE JOIN SYMPATHIZE) (N)
46100 (DISTRUST MISTRUST SUSPECT SUSPICIOUS) (N)
46200 (
46300 (I DON'T NEED A PAL/, I NEED SOMEONE WHO IS OBJECTIVE)
46400 )
46500 (
46600 (YOU SHOULD BE ABLE TO TELL WHETHER I TRUST YOU)
46700 (I WILL DO MY PART IF YOU DO YOURS)
46800 )
46900 (
47000 (YOU NEED TO BE MORE TRUSTING OF WHAT YOU HEAR)
47100 (SHOULD ONE ALWAYS BE SUSPICIOUS OF STRANGERS?)
47200 )
47300 (
47400 (I HAVE GOOD REASON TO BE THAT WAY)
47500 (I DON'T TRUST JUST ANYBODY)
47600 )
47700 )
47800 (
47900 (LIKE LOVE FOND CARE) (N)
48000 (DISLIKE HATE) (N)
48100 (
48200 (YOU ARE TRYING TO BE TOO FRIENDLY)
48300 )
48400 (
48500 (IT'S NOT A MATTER OF LIKE OR DISLIKE)
48600 (I AM TRYING TO BE NEUTRAL TOWARDS YOU)
48700 )
48800 (
48900 (I ASSUME YOU ARE DOING YOUR BEST WITH ME)
49000 (I WOULD WANT YOU FOR ME RATHER THAN AGAINST ME)
49100 )
49200 (
49300 (THIS IS NOT A MATTER OF PERSONAL LIKE OR DISLIKE)
49400 (YOU SEEM MORE INTERESTED IN YOURSELF THAN IN HELPING ME)
49500 )
49600 )
49700 (
49800 (PLEASED HAPPY FRIENDLY COOPERATIVE) (N )
49900 (ANGRY IRRITATED ANNOYED HOSTILE REJECTING AGGRAVATED UNFRIENDLY
50000 MAD SORE DEFENSIVE PISSED SENSITIVE UNCOOPERATIVE
50100 QUARRELSOME SARCASTIC OPINIONATED ACCUSATORY
50200 ARGUMENTATIVE PEEVED PEEVISH)
50300 (ANGER IRRITATE IRRITATING AGGRAVATE ANNOY BUG BORE OFFEND)
50400 (
50500 (IM GLAD YOU ARE PLEASED)
50600 )
50700 (
50800 (MY FEELINGS TOWARDS YOU ARE NOT THE POINT)
50900 )
51000 (
51100 (YOU SEEM A BIT NEGATIVE TO ME AT TIMES)
51200 (YOUR OWN NEGATIVE FEELINGS CAN INTERFERE WITH AN INTERVIEW)
51300 )
51400 (
51500 (SOME OF YOUR REMARKS ANNOY ME)
51600 (YOUR APPROACH IS NOT TOO COOL)
51700 )
51800 )
51900 (
52000 (CALM RELAXED) (CONSOLE COMFORT)
52100 (SCARED AFRAID FRIGHTENED NERVOUS ANXIOUS THREATENED
52200 UNEASY WARY FEARFUL TENSE)
52300 (FRIGHTEN SCARE THREATEN)
52400 (
52500 (THAT'S STRANGE)
52600 )
52700 (
52800 (I DON'T SCARE EASILY)
52900 )
53000 (
53100 (I THINK IT IS THE OTHER WAY AROUND)
53200 )
53300 (
53400 (SOMETIMES YOUR QUESTIONS SCARE ME)
53500 (I DO NOT LIKE TO BE THREATENED)
53600 )
53700 )
53800 ))
53900
54000
54100 ~ THIS FUNCTION APPLIES THE GIVEN OPERATIONS TO ALL ATTITUDES
54200
54300 (MAPCAR (FUNCTION (LAMBDA (L)
54400 (PROG NIL
54500
54600 ~ MARK EACH TOKEN AS INSTANCE OF THE POSITIVE ATTITUDE
54700 ~ AT THE HEAD OF LIST 1
54800
54900 (MAPCAR (FUNCTION (LAMBDA (X)
55000 (PUTPROP X (CAAR L) @ATTIT)))
55100 (APPEND (CAR L) (CADR L) (CADDR L) (CADDDR L)) )
55200
55300 ~ MARK NEGATIVE TOKENS
55400
55500 (MAPCAR (FUNCTION (LAMBDA (X)
55600 (PUTPROP X T @NEG))) (APPEND (CADDR L) (CADDDR L)) )
55700
55800 ~ MARK CAUSATION TOKENS
55900
56000 (MAPCAR (FUNCTION (LAMBDA (X)
56100 (PUTPROP X T @FLIP))) (APPEND (CADR L) (CADDDR L)) )
56200
56300 ~ MARK ATTITUDE WITH ITS NEGATIVE COUNTERPART
56400
56500 (PUTPROP (CAAR L) (CAADDR L) @OPP)
56600
56700 ~ ASSOCIATE I_YOU AND YOU_ME REPLIES WITH EACH POSITIVE AND NEGATIVE ATTITUDE
56800
56900 (PUTPROP (CAAR L) (CAR (CDDDDR L)) @IYREPLIES)
57000 (PUTPROP (CAAR L) (CADDR (CDDDR L)) @YMREPLIES)
57100 (PUTPROP (CAADDR L) (CADDR (CDDDDR L)) @IYREPLIES)
57200 (PUTPROP (CAADDR L) (CADDDR (CDDDDR L)) @ YMREPLIES)
57300 ) )) TOKENINF)
57400
57500 ~ VERBS OR OTHER TOKENS REQUIRING AN OBJECT
57600
57700 (SETQ RL @ (
57800 HELP ASSIST AID SUPPORT HELPING APPROVE
57900 BELIEVE ACCEPT FAVOR ASSURE REASSURE
58000 FOLLOW TRUST CONFIDE SHARE JOIN SYMPATHIZE
58100 LIKE
58200 HARM HURT CRITICIZE ACCUSE BLAME RIDICULE ATTACK
58300 DISBELIEVE MISUNDERSTAND MISUNDERSTOOD
58400 DISTRUST MISTRUST SUSPECT DISLIKE
58500 REJECT REJECTING
58600 ))
58700
58800 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @RELN))) RL)
58900
59000
59100 (DEFPROP SACTS (THINK BELIEVE UNDERSTAND ASSUME GUESS WONDER FEEL) IND)
59200 (DEFPROP YOUWORDS (YOU YOUR YOU'RE SIE VOUS) IND)
59300 (DEFPROP DISCUSS (TELL REALLY GO TALK DISCUSS SAY) IND)
59400 (DEFPROP QUES (ANSWER ASK QUESTION QUESTIONS) IND)
59500 (DEFPROP SELF (ANYTHING MORE ON AHEAD SOMETHING YOURSELF WHAT EXPERIENCES) IND)
59600
59700 (DEFPROP DEFENSREPLIES
59800 ((WHY ARE YOU INTERESTED IN MY)
59900 (LETS FORGET ABOUT)
60000 (WHAT DO YOU KNOW ABOUT)
60100 (WHAT ABOUT MY)
60200 (WHY THE DIG AT MY)) IND)
60300
60400
60500 (DEFPROP ACCUSE (
60600 (IT'S ABOUT TIME YOU SHOWED SOME INTEREST IN MY FEELINGS)
60700 (FORGET THE EXCUSES/, YOU DOCTORS ALL TALK ALIKE)
60800 (FINALLY YOU ARE AWARE OF MY FEELINGS)
60900 (WHY DON'T YOU QUIT ALL THESE GAMES?)
61000 (NEVER MIND/, I KNOW WHAT YOU'RE TRYING TO DO)
61100 ) IND)
61200
61300 (DEFPROP DISTANCE (((GUARDED LOOK) I DOUBT IF YOU ARE BEING HONEST WITH ME)
61400 (I WISH I COULD BELIEVE YOU)
61500 ((LOOKS SKEPTICAL) FLATTERY WILL GET YOU NOWHERE)
61600 (I CAN'T STAND PEOPLE WHO TRY TO BUTTER ME UP)
61700 (LET'S NOT PLAY ANY GAMES)) IND)
61800
61900 (DEFPROP HOSTILEREPLIES (
62000 (I HAVE DOUBTS ABOUT YOU)
62100 (DO YOU KNOW WHAT YOU'RE DOING?)
62200 (PERHAPS YOU ARE JUST POSING AS A DOCTOR)
62300 (SOMEBODY SHOULD TEACH YOU A LESSON ABOUT INTERVIEWING)
62400 (YOU HAVE MISSED THE POINT)
62500 (YOU JERK)
62600 (YOU OBVIOUSLY HAVEN'T HAD MUCH EXPERIENCE IN PSYCHIATRY)
62700 (HAVE YOU EVER INTERVIEWED A PATIENT BEFORE?)
62800 (ARE YOU REALLY A DOCTOR?)
62900 (YOU PSYCHIATRISTS ARE ALL CRAZY)
63000 (YOU KNOW/, ALL YOU SHRINKS ARE HUNG UP ON SEX)
63100 (I THINK YOU ARE FULL OF SHIT)
63200 (YOU DON'T KNOW HOW TO TALK WITH PATIENTS)
63300 (YOU SEEM LIKE A BEGINNER IN PSYCHIATRY TO ME)
63400 (YOU SHOULD BE IN SOME OTHER LINE OF WORK)
63500 (I DON'T WANT TO TALK WITH YOU ANY MORE/, BUZZ OFF)
63600 (WE ARE NOT GETTING ANYWHERE)
63700 (PEOPLE LIKE YOU THINK YOU KNOW EVERYTHING)
63800 (YOU ARE HARDLY BEING SENSITIVE TO MY FEELINGS)
63900 (WHY DON'T YOU KEEP YOUR STUPID REMARKS TO YOURSELF)) IND)
64000
64100
64200 (DEFPROP INSULT (STUPID CREEP DUMBELL STINK FATHEAD SCREWED SCREWS IDIOT DUMB ASS ASSHOLE DUMMY
64300 SADIST SADISTIC MASOCHIST MASOCHISTIC SCREWY BASTARD STUBBORN ORNERY FREAK WIERD WEIRD WISEASS
64400 NUTTY BIZARRE UGLY FINK EVASIVE DUMBASS NASTY FOOL NURD LYING LIE
64500 BITCH SNOTTY VAIN NINCOMPOOP SCREW NUT NUTS JERK FLIPPED ) IND)
64600
64700 (DEFPROP COMPL (INTELLIGENT OBSERVANT PERCEPTIVE UNDERSTANDING NICE BRIGHT
64800 ATTRACTIVE CLEVER BRILLIANT SMART REASONABLE COOL
64900 SHARP WISE SENSIBLE SANE RATIONAL LOGICAL BEAUTIFUL
65000 HANDSOME LIKEABLE LOVABLE AGREEABLE
65100 ) IND)
65200
65300 (DEFPROP ANGER (((SOCKS YOU IN THE NOSE)
65400 WHEN YOU DON'T KNOW WHAT TO SAY YOU CALL PEOPLE NAMES)
65500 ((GNASHES TEETH) YOU SHOULD BE FIRED FOR TALKING THAT WAY TO A PATIENT)
65600 ((SHAKES FIST AT YOU)
65700 YOU ARE A JERK WHO BELONGS IN SOME OTHER BUSINESS)
65800 (YOU ARE TRYING TO START A FIGHT)
65900 (YOU ARE HOSTILE TO ME)
66000 (INSULTS WILL GET YOU NOWHERE)
66100 ) IND)
66200
66300 (DEFPROP APOL (
66400 (SORRY) (APOLOGIZE)
66500 (I WASN'T) (I DIDN'T)
66600 (I WAS) (I DID)
66700 (YOU RIGHT) (YOU CORRECT)
66800 ) IND)
66900
67000 (DEFPROP PERS (
67100 (ARE YOU TRYING TO SAY SOMETHING?)
67200 (WHY DO YOU SAY THAT?)
67300 (WHAT ARE YOU IMPLYING?)
67400 ) IND)
67500
67600 (DEFPROP SENSREPLIES ((WHAT DO YOU MEAN BY)
67700 (WHAT DO YOU MEAN)
67800 (WHY DO YOU SAY)
67900 (WHAT EXACTLY DO YOU MEAN BY)) IND)
68000
68100 (DEFPROP GUARD (
68200 (WHAT DO YOU THINK ABOUT MY)
68300 (LET'S FORGET ABOUT THINGS LIKE)
68400 ) IND)
68500
68600 (DEFPROP QFEEL (
68700 (MAYBE)
68800 (THAT IS VERY POSSIBLE)
68900 (YOU MIGHT SAY THAT)
69000 ) IND)
69100
69200 (DEFPROP WFEEL (
69300 (SHOULDN'T I BE?)
69400 (WHY NOT?)
69500 (BECAUSE I HAVE A RIGHT TO BE)
69600 (YOU WOULD BE TOO UNDER THE CIRCUMSTANCES)
69700 (I DON'T WANT TO TALK ABOUT THIS ANYMORE)
69800 ) IND)
69900
70000 (DEFPROP CAUTION (((EYES YOU DUBIOUSLY) REALLY?)
70100 ((DISTRUSTFUL) ARE YOU TAKING THIS SERIOUSLY?)
70200 (I DON'T KNOW IF I CAN TRUST WHAT YOU SAY)
70300 (PERHAPS YOU ARE AN IMPOSTOR)
70400 (I'M WORRIED ABOUT WHAT YOU ARE UP TO)
70500 (I DON'T THINK YOU ARE SINCERE)
70600 (THERE'S SOMETHING FISHY ABOUT YOU) ) IND)
70700
70800 (DEFPROP AFRAID ((WHO ARE YOU REALLY?)
70900 (ARE YOU TRYING TO FRIGHTEN ME?)
71000 (I AM GETTING AFRAID OF YOU )
71100 (YOU ARE MAKING ME NERVOUS )
71200 (WHAT ARE YOU TRYING TO DO?)
71300 (WHAT DO YOU KNOW ABOUT ME?)) IND)
71400
71500
71600 (DEFPROP THREATQ (
71700 (YOU ASK TOO MANY PERSONAL QUESTIONS)
71800 (WHY DO YOU WANT TO KNOW?)
71900 (YOU WOULDN'T UNDERSTAND IT ANYWAY)
72000 (TELLING YOU WOULDN'T HELP ANY)
72100 (WHY ARE YOU SO INTERESTED IN THAT?)
72200 (YOU ARE TOO NOSEY)
72300 (YOU PRY TOO MUCH)
72400 (THAT'S FOR ME TO KNOW AND YOU TO FIND OUT)
72500 (I'M NOT SURE I TRUST YOU)
72600 ) IND)
72700
72800 (DEFPROP SEEM (
72900 (YOU'RE ENTITLED TO YOUR OWN OPINION)
73000 (YOU REALLY THINK SO)
73100 (SO WHAT?)
73200 (YOU THINK YOU HAVE FOUND OUT SOMETHING ABOUT ME/, DON'T YOU?)
73300 (COULD BE)
73400 (THAT IS A GOOD POINT)
73500 (YOU COULD BE RIGHT)
73600 ) IND)
73700
73800 (DEFPROP ABNORMAL (
73900 (NEED HELP) (NEED TREATMENT)
74000 (NEED DOCTOR) (NEED HOSPITAL)
74100 (SICK) (ILL) (SHOCK)(INSANE) (MENTAL) (MENTALLY)
74200 (SANE) (CRAZY) (PSYCHOTIC) (PSYCHOSIS)
74300 (PARANOID) (PARANOIA) (DELUSION) (DELUSIONS)
74400 (SCHIZOPHRENIC) (SCHIZOPHRENIA) (DELUSIONAL)
74500 ) IND)
74600
74700 (DEFPROP ALIEN (((STARTS FROM CHAIR) I KNOW YOU'RE ALL IN THIS TOGETHER)
74800 ((TENSELY) I THINK I KNOW WHAT YOU DOCTORS ARE UP TO)
74900 (YOU WANT TO KEEP ME IN THE HOSPITAL)
75000 (I KNOW YOU ARE GOING TO TRY TO GIVE ME ELECTRIC SHOCK)
75100 ( I WILL NOT CONSENT TO ELECTRIC SHOCK)
75200 (I THINK YOU KNOW DAMN WELL WHAT IS GOING ON)
75300 (YOU ARE TRYING TO BREAK ME DOWN)
75400 ((STARES AT YOU) YOU'RE IN WITH ALL THE REST)) IND)
75500
75600
75700 (DEFPROP PANIC (((FREEZES))
75800 ((PANICS))
75900 ((LOOKS AROUND ROOM))) IND)
76000
76100
76200 (DEFPROP SUSPREPLIES (((FROWN))
76300 ((DISTRUSTFUL LOOK))
76400 (WHAT ABOUT)
76500 ) IND)
76600
76700 (DEFPROP NEXTFL (
76800 (DO YOU KNOW ANYTHING ABOUT)
76900 (WHAT DO YOU KNOW ABOUT)
77000 (HAVE YOU EVER REALLY THOUGHT ABOUT)
77100 (YOU HAVE TO BE CAREFUL ABOUT)
77200 (ANOTHER THING IS)
77300 (MAYBE YOU HAVE TO WATCH OUT FOR)
77400 ) IND)
77500
77600 (DEFPROP FEELER ((WHAT DO YOU THINK ABOUT ALL THIS?)
77700 (NOW YOU MAY HAVE SOME IDEA OF WHAT THE SITUATION IS)
77800 (WHAT DO YOU THINK OF MY STORY?)
77900 ) IND)
78000
78100 (DEFPROP SILENCE (((NERVOUS) WHAT'S THE MATTER?)
78200 ((IRRITATED) WHY DON'T YOU SAY SOMETHING?)
78300 (CAN'T YOU THINK OF A DECENT QUESTION TO ASK?)
78400 (YOU'RE TRYING TO MAKE ME TALK BY NOT SAYING ANYTHING)
78500 (YOU'RE JUST PLAYING GAMES AGAIN)
78600 ((SHIFTS UNEASILY))
78700 (WHY ARE YOU SILENT?)
78800 (YOU ARE BEING EVASIVE)
78900 (THE OLD WAITING GAME)
79000 (YOU DON'T KNOW WHAT TO SAY)
79100 (TWO CAN PLAY THAT GAME)
79200 ) IND)
79300
79400 (DEFPROP CHANGESUBJ ((LET'S TALK ABOUT SOMETHING ELSE)
79500 (I'D RATHER NOT DISCUSS IT)
79600 (THAT'S SOMETHING I DON'T WANT TO GO INTO)
79700 (IT'S NONE OF YOUR BUSINESS)
79800 (I DON'T CONFIDE IN STRANGERS)
79900 ((LOOKS AT DOOR) LET'S CHANGE THE SUBJECT)) IND)
80000
80100 (DEFPROP OBJDATA ((CITY (PALO ALTO))
80200 (HOSPITAL (PALO ALTO VA))
80300 (YEAR (I974))
80400 (PRESIDENT (NIXON IS PRESIDENT))
80500 ((WHITE HOUSE)(DICK AND PAT NIXON))
80600 (NIXON (NIXON IS PRESIDENT OF THE US))
80700 (DATE (I FORGET))
80800 (MONTH (FEBRUARY))
80900 (DAY (YOU TELL ME))
81000 ) IND)
81100
81200 (DEFPROP QLIST (HOW WHO WHOM WHAT WHEN WHERE WHY WHICH) IND)
81300
81400 (DEFPROP MANY (
81500 (TOO MANY)
81600 (ENOUGH)
81700 ) IND)
81800
81900 (DEFPROP MUCH (
82000 (GET LOST)
82100 (ENOUGH)
82200 (QUITE A BIT)
82300 (PRETTY MUCH)
82400 ) IND)
82500
82600 (DEFPROP LONG (
82700 (TOO LONG)
82800 (LONG ENOUGH)
82900 ) IND)
83000
83100 (DEFPROP OFTEN (
83200 (OFTEN ENOUGH)
83300 (PRETTY OFTEN)
83400 ) IND)
83500
83600 (DEFPROP WHY (
83700 (THAT'S JUST THE WAY IT IS)
83800 (THAT'S THE WAY IT GOES)
83900 ) IND)
84000
84100 (DEFPROP UNKNOWN ((WHAT DO YOU MEAN?)
84200 (WHAT ARE YOU GETTING AT?)
84300 (WHY DO YOU NEED TO KNOW THAT?)
84400 (I DON'T UNDERSTAND YOUR MOTIVES)
84500 (I DONT GET YOU )
84600 (I DON'T KNOW)
84700 (YOU ARE JUST TESTING ME)
84800 (IT'S BEYOND ME)
84900 (WHO KNOWS?)
85000 (I WONDER WHAT YOU ARE REALLY AFTER)
85100 (WHO CARES?)
85200 (I HAVE TROUBLE FOLLOWING YOU )
85300 ) IND)
85400
85500 (DEFPROP QREPLIES ((WELL/, I DON'T KNOW)
85600 (I WOULD SAY SO)
85700 (I GUESS SO)
85800 (MAYBE YES/, MAYBE NO)
85900 (COULD YOU ELABORATE ON THAT?)
86000 (OH SURE)
86100 (AND HOW)
86200 (COULD BE)) IND)
86300
86400
86500 (DEFPROP SREPLIES (
86600 (SO?)
86700 (REALLY?)
86800 (YOU DON'T SAY)
86900 (ANYTHING ELSE?)
87000 (THAT MIGHT BE)
87100 (AND NOW WHAT?)
87200 (THAT'S NOT VERY INTERESTING)
87300 (SO WHERE ARE WE?)
87400 (I SEE)
87500 (NOW WHAT DO YOU WANT TO ASK ME?)
87600 (WHAT IS YOUR NEXT QUESTION?)
87700 (HOW ABOUT THAT)
87800 (WHAT ELSE DO YOU WANT TO KNOW?)
87900 ) IND)
00100
00200 (SETQ SL @((SENSITIVELIST (LOOKS SEXLIFE FAMILY EDUCATION RELIGION) SETS)
00300
00400 (LOOKS (LOOKS LOOK APPEARANCE STARE PHYSICALLY BODY NOSE NOSES FEET SHOES FOOT) WORDS)
00500 (SEXLIFE (SEX SEXUAL HOMOSEXUAL HOMO QUEER DEVIATE PERVERT FAIRY QUEER IMPOTENT
00600 HOMO GAY FAG FAGGOT MASTURBATE MASTURBATION) WORDS)
00700 (FAMILY (FAMILY PARENTS FATHER MOTHER) WORDS)
00800 (EDUCATION (EDUCATION COLLEGE GRADUATES GRADUATE) WORDS)
00900 (RELIGION (RELIGION PROTESTANT PROTESTANTS RELIGIOUS) WORDS)
01000 ))
01100
01200 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) SL)
01300
01400 (DEFPROP LOOKS X SPECIAL)
01500
01600 (DEFPROP ADJLIST (GOOD GREAT STRONG INTELLIGENT BEAUTIFUL GOODLOOKING NICE EDUCATED SUCCESSFUL)
01700 POS)
01800 (DEFPROP ADJLIST (BAD LOUSY WEAK STUPID UGLY HOMELY TERRIBLE UNEDUCATED UNSUCCESSFUL CROOKED
01900 NASTY ODD PECULIAR NEGATIVE IMPOLITE BIG ENORMOUS STRANGE FUNNY) NEG)
02000 (DEFPROP ADJLIST (UNUSUAL INTERESTING FASCINATING) AMBIG)
02100
02200
02300 (SETQ FL @((FLARELIST (RACKETSET GANGSTERSET PERSONSET CHEATSET BOOKIESET GAMBLERSET MONEYSET
02400 HORSERACINGSET POLICESET ITALIANSET HORSESET) SETS)
02500 (MAFIASET (MAFIA) WORDS)
02600 (RACKETSET (RACKETEERS RACKETTEERS RACKET RACKETS DOPE PROSTITUTE PROSTITUTES
02700 CRIME CRIMES CRIMINALS SYNDICATE MOB MOBSTERS CONVICTS CONS MOBSTER
02800 WHORE WHORES
02900 PROSTITUTION BOOTLEGGER BOOTLEGGERS BOOTLEG BOOTLEGGING SMUGGLE SMUGGLER
03000 SMUGGLERS SMUGGLING ) WORDS)
03100 (GANGSTERSET (GANGSTERS HOODLUMS HOODS UNDERWORLD GANGSTER
03200 CROOKS CROOKED HOODLUM HOOD ROB ROBS ROBBED THUG THUGS
03300 GANGLAND THIEF THIEVES THEFT ROBBER ROBBERS BUM BUMS) WORDS)
03400 (PERSONSET (ALIOTO CAPONE) WORDS)
03500 (CHEATSET (CHEATING CHEAT CHEATED FRAUD FAKE SWINDLE SWINDLED SWINDLER SWINDLERS
03600 GYP GYPPED TRICK TRICKED) WORDS)
03700 (BOOKIESET (BOOKIES BOOKIE BOOKMAKERS BOOKMAKING BOOKMAKER) WORDS)
03800 (GAMBLERSET (GAMBLING GAMBLE GAMBLERS BETTING BETS GAMBLER BET CARDS POKER ROULETTE CRAP
03900 DICE LOTTERY LUCKY UNLUCKY) WORDS)
04000 (MONEYSET (MONEY DOUGH WIN WINNINGS RICH BUY PAYROLL LEND BORROW SALARY
04100 TAXES LOAN BANK COST BREAD BILL BILLS PENNY PENNIES NICKEL NICKELS
04200 DIME DIMES DOLLAR DOLLARS) WORDS)
04300 (HORSERACINGSET (HORSERACING HORSERACES RACES RACING HORSERACE
04400 TRACK RACE RACETRACK RACETRACKS BAY MEADOWS JOCKEYS SWEEPSTAKES) WORDS)
04500 (POLICESET (POLICE COPS POLICEMEN POLICEMAN COP FBI
04600 ARREST ARRESTS ARRESTED LAWS LAWYERS JAILS PRISON PRISONS TRIAL TRIALS
04700 BRIBE BRIBES BRIBED PRISONER PRISONERS CELL CELLS COURT COURTS
04800 LAW LAWYER DETECTIVE DETECTIVES FUZZ JAIL) WORDS)
04900 (ITALIANSET (ITALIANS SICILIANS ITALIAN SICILIAN ITALY ROME ROMAN ROMANS) WORDS)
05000 (HORSESET (HORSES HORSE ANIMAL ANIMALS PONY PONIES NAG NAGS) WORDS)
05100 ))
05200 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) FL)
05300
05400 ~ % RESPECTIVE WEIGHTS OF THE GIVEN FLARE CONCEPTS %
05500
05600 (SETQ WTS @(17 15 12 10 9 7 6 5 4 3 1))
05700
05800 ~ %WEIGHTS ARE ASSIGNED TO CONCEPTS RATHER THAN TO INDIVIDUAL WORDS%
05900
06000 (SETQ FLARELIST (GET @FLARELIST @SETS))
06100 (MAPCAR (FUNCTION (LAMBDA (WT) (PROG2 (PUTPROP (CAR FLARELIST) WT @WT)
06200 (SETQ FLARELIST (CDR FLARELIST))))) WTS)
06300
06400 ~ % SIMILARLY FOR SENSITIVE CONCEPTS %
06500
06600 (SETQ WTS @(9 8 6 4 2))
06700
06800 (SETQ SENSITIVELIST (GET @SENSITIVELIST @SETS))
06900 (MAPCAR (FUNCTION (LAMBDA (WT) (PROG2 (PUTPROP (CAR SENSITIVELIST) WT @WT)
07000 (SETQ SENSITIVELIST (CDR SENSITIVELIST))))) WTS)
07100
07200 ~ % EACH FLARE CONCEPT POINTS TO ANOTHER FLARE CONCEPT A STEP CLOSER TO MAFIA DELUSION %
07300
07400 (SETQ POINTERS @((HORSESET HORSERACINGSET)
07500 (ITALIANSET GANGSTERSET)
07600 (PERSONSET GANGSTERSET)
07700 (POLICESET GANGSTERSET)
07800 (HORSERACINGSET BOOKIESET)
07900 (MONEYSET GAMBLERSET)
08000 (GAMBLERSET HORSERACINGSET)
08100 (BOOKIESET RACKETSET)
08200 (CHEATSET RACKETSET)
08300 (GANGSTERSET BOOKIESET)
08400 (RACKETSET MAFIASET)
08500 (MAFIASET MAFIASET)
08600 ))
08700
08800 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @INDIR)))
08900 @(CHEATSET MONEYSET))
09000
09100 (MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) @NEXT)))
09200 POINTERS)
09300
09400 (DEFPROP GANGSTERSET (( IT SEEMS TO ME THAT GANGSTERS HAVE A LOT OF INFLUENCE IN THIS COUNTRY )
09500 (I HAVE FELT GANGSTERS AND BOOKIES ARE PART OF ORGANIZED CRIME)
09600 ) STMTS)
09700 (DEFPROP PERSONSET ((PEOPLE DONT REALIZE HOW TOUGH GANGSTERS ARE)
09800 (PEOPLE DONT BELIEVE ME ABOUT GANGSTERS)
09900 ) STMTS)
10000 (DEFPROP RACKETSET ((I KNOW THE MOB CONTROLS THE BIG RACKETS)
10100 (I TOLD YOU THE MOB RUNS THE RACKETS)
10200 ) STMTS)
10300 (DEFPROP CHEATSET ((YOU CAN'T CHEAT AN HONEST MAN)
10400 (BOOKIES HAVE CHEATED ME)
10500 ) STMTS)
10600 (DEFPROP BOOKIESET (
10700 (A BOOKIE DIDN'T PAY ME OFF ONCE)
10800 (I HAD A FIGHT WITH THE BOOKIE WHO DID NOT PAY OFF/. LATER ON I REMEMBERED
10900 HE HAD FRIENDS IN THE UNDERWORLD AND I THOUGHT
11000 HE WOULD USE THEM TO GET EVEN WITH ME)
11100 ) STMTS)
11200 (DEFPROP GAMBLERSET ((GAMBLING HAS BEEN NOTHING BUT TROUBLE FOR ME)
11300 (I'VE HAD EXPERIENCE WITH CROOKS GAMBLING AT THE TRACK)
11400 ) STMTS)
11500 (DEFPROP MONEYSET (( I HAVE LOST A LOT OF MONEY GAMBLING )
11600 (I LOST MONEY GAMBLING WITH BOOKIES )
11700 ) STMTS)
11800 (DEFPROP HORSERACINGSET ((I USED TO GO TO THE TRACK EVERY WEEK)
11900 (I AVOID RACETRACKS NOW BECAUSE THE RACES ARE FIXED)
12000 ) STMTS)
12100 (DEFPROP POLICESET ((COPS DON'T DO THEIR JOB)
12200 (I THINK THE COPS ARE PAID OFF BY THE MOB)
12300 ) STMTS)
12400 (DEFPROP ITALIANSET ((ITS OBVIOUS TO ME GANGSTERS ARE MAINLY ITALIANS )
12500 (THE LAW SHOULD GET AFTER THOSE ITALIAN MOBSTERS)
12600 ) STMTS)
12700 (DEFPROP HORSESET ((I'VE BEEN INTERESTED IN HORSERACING FOR SOME TIME)
12800 (I READ THE RACING FORMS TO MAKE BETS)
12900 ) STMTS)
13000
13100 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP (CONS X @(0 NREF)))))) (CADAR FL))
13200
13300 ~ % TAG EACH WORD WITH THE CONCEPT SET TO WHICH IT BELONGS %
13400
13500 (MAPCAR (FUNCTION (LAMBDA (CONCEPT)
13600 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD CONCEPT @SET))) (GET CONCEPT @WORDS))))
13700 (GET @SENSITIVELIST @SETS))
13800
13900 (MAPCAR (FUNCTION (LAMBDA (CONCEPT)
14000 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD CONCEPT @SET))) (GET CONCEPT @WORDS))))
14100 (GET @FLARELIST @SETS))
14200 ~ % EXACT TYPE OF REPLY DEPENDS ON TYPE OF CONCEPT UNDER CONSIDERATION %
14300
14400 (MAPCAR (FUNCTION (LAMBDA (CONCEPT) (PUTPROP CONCEPT @INSTITUTION @TYPE)))
14500 @(MAFIASET POLICESET))
14600 (MAPCAR (FUNCTION (LAMBDA (CONCEPT) (PUTPROP CONCEPT @SPECIFIC @TYPE)))
14700 (APPEND @(GANGSTERSET BOOKIESET GAMBLERSET HORSERACINGSET ITALIANSET HORSESET)
14800 (GET @SENSITIVELIST @SETS)))
14900
15000 ~ % DATA RELATING TO DELUSIONAL COMPLEX %
15100
15200 ~ % S I N G L E WORDS ONLY ALLOWED IN DN, DV, AN, AV %
15300
15400 (SETQ DN @(MAFIA VIOLENCE DEATH SHOT SHOOTING VICTIM FATAL BULLET BULLETS
15500 BOMB BOMBS BLOOD BLOODY PISTOL RIFLE REVOLVER SHOTGUN GUN GUNS
15600 KNIFE KNIVES SHIV WEAPON WEAPONS CONTRACT CONTRACTS
15700 ))
15800
15900 (SETQ DV @(KILL KILLED ESCAPE MURDER MURDERING MURDERED STAB STABBED SHOOT STRANGLE
16000 DESTROY CRUSH
16100 ))
16200
16300 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD T @STRONG))) (APPEND DN DV))
16400
16500 (SETQ AN @(
16600 CONTROL HARM HATRED THREAT THREATS
16700 ))
16800
16900 (SETQ AV @(
17000 FOLLOW BUG BUGGED BUGGING DIE DIED
17100 HARMED HARMING INFLUENCE INFLUENCING INFLUENCED
17200 THREATEN THREATENING CONTROLLING HIDE HIDING
17300 HIT
17400 ))
17500
17600 (SETQ ANV (APPEND AN AV))
17700
17800 (MAPCAR (FUNCTION (LAMBDA (WORD) (PUTPROP WORD T @AMBD))) ANV)
17900
18000 (PUTPROP @DELWDS ANV @AMBIG)
18100
18200 (PUTPROP @DELWDS (APPEND DN @(PLOT EAVESDROPPING SPY SPIES SPYING WIRETAPPING TRAP TRAPS
18300 CONSPIRACY CHIEF CHIEFTAIN CHIEFTAINS SOLDIER SOLDIERS (COSA NOSTRA)
18400 PRISONER BOSS BOSSES GANGLEADER GANGLEADERS BONANNOS BONNANOS BANANAS
18500 HENCHMAN HENCHMEN WATCHER WATCHERS ORGANIZATION GODFATHER LEGBREAKER MAFIOSO
18600 (PHONE CALL) (PHONE CALLS) (FIFTH AMENDMENT)
18700 ENEMY ENEMIES PERSECUTORS STOOLIE STOOLPIGEON STOOLPIGEONS FINK
18800 MICROPHONE (SERIOUS HEADACHE) ENFORCER LOANSHARK
18900 (BANANA RACE) WISEGUY (MADE GUY) (SPIT BOX) (UNCLE SUGAR)
19000 )) @NOUNS)
19100
19200 (PUTPROP @DELWDS (APPEND DV @(FOLLOWING FOLLOWED SPIED
19300 INCRIMINATE INCRIMINATING INCRIMINATED FRAME FRAMING FRAMED
19400 PURSUE PURSUING PURSUED
19500 PERSECUTE PERSECUTING PERSECUTED (IS OUT GET) (ARE OUT GET) (GET RID)
19600 (BEING OBSERVED) (BEING WATCHED) WATCHING WATCHED HURT CONTROLLED
19700 SECRET SECRETLY CROSS CROSSED DOUBLECROSS DOUBLECROSSED SQUEAL KIDNAP
19800 TAP TAPPED TAPPING (WHACK OUT)
19900 )) @VERBS)
20000
20100 (DEFPROP MODIFIERS (A AN THE YOUR MY HIS HER THEIR
20200 ) IND)
20300
20400 (DEFPROP PRON (YOU ME YOURSELF MYSELF THEM) IND)
20500
20600 (DEFPROP ANREF ((THEY) (THEM) (IT)) IND)
20700
20800 (DEFPROP FEAR (((FEARFUL))
20900 ((PANICKED))
21000 ((NERVOUSLY))) IND)
21100
21200 (DEFPROP PREFACE (YOU KNOW/,) 1)
21300 (DEFPROP PREFACE (LIKE I'VE SAID/,) 2)
21400 (DEFPROP PREFACE (I TELL YOU/,) 3)
21500
21600 (SETQ DL @((DELUSIONS ((THEY KNOW ME)
21700 (THE MAFIA REALLY KNOW ABOUT ME)
21800 (THEY KNOW WHO I AM)) DEL1)
21900 (DELUSIONS ((THEY ARE OUT TO GET ME)
22000 (THEY ARE AFTER ME)
22100 (THEY ARE TRYING TO SCARE ME)) DEL2)
22200 (DELUSIONS ((THEY SPY ON ME)
22300 (THEY KNOW WHAT IM DOING)
22400 (THEY KEEP TABS ON ME)) DEL3)
22500 (DELUSIONS ((I HAVE INCRIMINATING EVIDENCE AGAINST THE MAFIA)
22600 (IVE GOT SOMETHING ON THEM)
22700 (IVE FOUND OUT ABOUT SOME OF THEIR SECRETS)) DEL4)
22800 (DELUSIONS ((I KNOW WHO THE LOCAL CHIEF OF THE MAFIA IS)
22900 (I KNOW THE BOSS OF THE MAFIA AROUND HERE)
23000 (IVE GOT A PRETTY GOOD IDEA ON WHO IS RUNNING THE ORGANIZATION IN THIS AREA)) DEL5)
23100 (DELUSIONS ((MAYBE THEY ARE GLAD I AM IN THE HOSPITAL)
23200 (THEY WANT TO KEEP ME IN THE HOSPITAL)
23300 (THEY DON'T WANT ME TO EVER LEAVE HERE)) DEL6)
23400 (DELUSIONS ((THEY TAP MY PHONE)
23500 (THEY BUG MY ROOM)
23600 (THEY HAVE ME FOLLOWED)) HOWSPY)
23700 (DELUSIONS ((THEY WANT TO GET FALSE EVIDENCE TO FRAME ME)
23800 (THEY ARE LOOKING FOR A WAY TO INCRIMINATE ME)
23900 (THEY WANT TO SET A TRAP FOR ME)) WHYSPY)
24000 (DELUSIONS ((I'VE NOTICED IT NOW AND THEN IN THE PAST FEW MONTHS)
24100 (SEVERAL TIMES IN THE PAST FEW WEEKS)
24200 (THEY'RE CONSTANTLY DOING IT)) WHENSPY)
24300 (DELUSIONS ((WELL/, I DON'T WANT TO SAY RIGHT NOW/, BUT IT'S ALL BECOMING CLEAR)
24400 (I'VE FINALLY PUT THE PIECES TOGETHER)
24500 (DON'T WORRY/, I'VE GOT IT ALL FIGURED OUT)) AVOID)
24600 (DELUSIONS ((HE IS JOE BANANAS )
24700 (BANANAS CONTROLS THE ORGANIZATION)
24800 (BANANAS )) LEADER)
24900 (DELUSIONS ((THEY WANT ME OUT OF THE WAY)
25000 (THEY DON'T WANT ME TO TESTIFY)
25100 (THEY WANT TO KEEP ME A PRISONER IN THE HOSPITAL)) WHYHOSP)
25200 ))
25300 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) DL)
25400
25500 (SETQ AL @((ANSWERS ((((WHAT)) DEL2)(((HOW KNOW)) DEL3) (((WHO ARE)(WHY)) DEL4)) DEL1)
25600 (ANSWERS ((((WHY) (WHAT FOR) (PURPOSE) (REASON)) DEL4) (((HOW KNOW)) DEL3)) DEL2)
25700 (ANSWERS ((((HOW) (WAY)) HOWSPY) (((WHEN)) WHENSPY) (((WHY)) WHYSPY)) DEL3)
25800 (ANSWERS ((((WHAT)(WHERE)) AVOID)) DEL4)
25900 (ANSWERS ((((WHO) (HE) (HIM)) LEADER)) DEL5)
26000 (ANSWERS ((((WHEN)) WHENSPY) (((WHY)) WHYSPY)) HOWSPY)
26100 (ANSWERS ((((HOW)) HOWSPY) (((WHY)) DEL4)) WHYSPY)
26200 (ANSWERS ((((WHAT FOR) (WHY) (PURPOSE) (REASON)) WHYHOSP)) DEL6)
26300 ))
26400 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) AL)
26500
26600 (MAPCAR (FUNCTION (LAMBDA (I) (PUTPROP I 0 @FREQ)))
26700 @(DEL1 DEL2 DEL3 DEL4 DEL5 DEL6 HOWSPY WHYSPY WHENSPY AVOID LEADER WHYHOSP))
26800
26900 (DEFPROP MAFIASET (
27000 (I'VE TOLD YOU ALL I KNOW ABOUT THE MAFIA)
27100 (DIDN'T YOU LISTEN TO WHAT I SAID ABOUT THEM BEFORE?)
27200 (I SAID I DIDN'T WANT TO TALK ABOUT THAT ANYMORE)
27300 ) IND)
27400
27500 (DEFPROP DISBELIEF (
27600 (YOU SURE)
27700 (YOU THINK)
27800 (I DON'T)
27900 (NO ONE)
28000 (BUT)
28100 (DOUBT) (RIDICULOUS)
28200 (REASON) (EVIDENCE)
28300 (IMAGINING) (IMAGINATION)
28400 (YOU MISTAKEN)
28500 (YOU WRONG) (YOU INCORRECT)
28600 ) IND)
28700
28800 (DEFPROP BELIEVEREPLIES ((YOU DON'T BELIEVE ME?)
28900 (YOU DONT BELIEVE ME DO YOU)
29000 (YOURE SKEPTICAL LIKE ALL THE OTHERS WHO DONT KNOW)) IND)
29100
29200 (DEFPROP ALOOF (((EYES YOU SUSPICIOUSLY) NEVER MIND/, I'VE GOT IT ALL FIGURED OUT)
29300 (I KNOW MORE ABOUT THIS THAN YOU DO)
29400 (YOU DON'T KNOW MUCH ABOUT WHAT REALLY GOES ON)
29500 (YOU DON'T SEEM TO UNDERSTAND)
29600 (IT'S CLEAR TO ME IF NOT TO YOU)
29700 (YOU SEEM INSINCERE TO ME)
29800 (YOU ARE NOT TAKING THIS SERIOUSLY)
29900 (IT SEEMS LIKE I DON'T NEED YOUR HELP AFTER ALL)) IND)
30000
30100 (DEFPROP TURNOFF (((IRRITATED) OH FORGET IT)
30200 ((STARES AT YOU))
30300 ((HEADS FOR DOOR) YOU DON'T KNOW WHAT YOU'RE TALKING ABOUT/, FORGET IT)
30400 ) IND)
30500 (DEFPROP EXHAUST (
30600 (I HAVE ALREADY TOLD YOU ENOUGH ABOUT THAT)
30700 (YOU KEEP SAYING THE SAME THINGS/,
30800 WHY NOT CHANGE THE TOPIC?)
30900 (I WOULD RATHER NOT DISCUSS THAT ANYMORE)
31000 (I AM GETTING TIRED OF HEARING THE SAME THINGS
31100 OVER AND OVER)
31200 (YOU HARP ON THE SAME THINGS TOO MUCH)
31300 (IN MY OPINION YOU HAVE A ONE-TRACK MIND)
31400 (WHAT'S WRONG WITH YOU THAT YOU KEEP ON
31500 BUGGING ME ABOUT THIS?)
31600 (THE WAY YOU REPEAT YOURSELF IS GETTING RIDICULOUS)
31700 (YOU ARE A REAL NAG)
31800 (I HAVE HAD ENOUGH OF THIS)
31900 ) IND)
00100 (SETQ IBASE 8.)
00200
00300
00400 (LAP SEND SUBR)
00500 (JRST BEGIN#)
00600 LETTER#
00700 (0 0)
00800 (0 0)
00900 (0 0)
01000 (0 0)
01100 (0 0)
01200 (0 0)
01300 (0 0)
01400 (0 0)
01500 (0 0)
01600 (0 0)
01700 (0 0)
01800 (0 0)
01900 (0 0)
02000 (0 0)
02100 (0 0)
02200 (0 0)
02300 (0 0)
02400 (0 0)
02500 (0 0)
02600 (0 0)
02700 (0 0)
02800 (0 0)
02900 (0 0)
03000 (0 0)
03100 (0 0)
03200 (0 0)
03300 (0 0)
03400 (0 0)
03500 (0 0)
03600 (0 0)
03700 (0 0)
03800 (0 0)
03900 BEGIN#
04000 (CALL 1 (E SIXBIT))
04100 (MOVEM 1 JOB#)
04200 (40000 1 (C 564155 0 455156))
04300 (JRST 0 FAILED#)
04400 (710000 0 JOB#)
04500 (JRST 0 FAILED#)
04600 (MOVEI 1 LETTER#)
04700 (CALL 1 (E CLEAR_MAILBOX))
04800 (MOVEI 1 (QUOTE T))
04900 (POPJ P)
05000 FAILED#
05100 (MOVEI 1 LETTER#)
05200 (CALL 1 (E CLEAR_MAILBOX))
05300 (MOVEI 1 (QUOTE NIL))
05400 (POPJ P)
05500 JOB#
05600 (0 0)
05700 (0 0 LETTER#)
05800 NIL
05900
06000 (LAP WRCV SUBR)
06100 (JRST BEGIN#)
06200 LETTER#
06300 (0 0)
06400 (0 0)
06500 (0 0)
06600 (0 0)
06700 (0 0)
06800 (0 0)
06900 (0 0)
07000 (0 0)
07100 (0 0)
07200 (0 0)
07300 (0 0)
07400 (0 0)
07500 (0 0)
07600 (0 0)
07700 (0 0)
07800 (0 0)
07900 (0 0)
08000 (0 0)
08100 (0 0)
08200 (0 0)
08300 (0 0)
08400 (0 0)
08500 (0 0)
08600 (0 0)
08700 (0 0)
08800 (0 0)
08900 (0 0)
09000 (0 0)
09100 (0 0)
09200 (0 0)
09300 (0 0)
09400 (0 0)
09500 BEGIN#
09600 (MOVEI 1 LETTER#)
09700 (CALL 1 (E CLEAR_MAILBOX))
09800 (710000 1 LETTER#)
09900 (MOVEI 1 LETTER#)
10000 (MOVEI 2 (QUOTE FIXNUM))
10100 (JCALL 2 (E MAKNUM))
10200 NIL
10300
10400 (LAP SRCV SUBR)
10500 (JRST BEGIN#)
10600 LETTER#
10700 (0 0)
10800 (0 0)
10900 (0 0)
11000 (0 0)
11100 (0 0)
11200 (0 0)
11300 (0 0)
11400 (0 0)
11500 (0 0)
11600 (0 0)
11700 (0 0)
11800 (0 0)
11900 (0 0)
12000 (0 0)
12100 (0 0)
12200 (0 0)
12300 (0 0)
12400 (0 0)
12500 (0 0)
12600 (0 0)
12700 (0 0)
12800 (0 0)
12900 (0 0)
13000 (0 0)
13100 (0 0)
13200 (0 0)
13300 (0 0)
13400 (0 0)
13500 (0 0)
13600 (0 0)
13700 (0 0)
13800 (0 0)
13900 BEGIN#
14000 (MOVEI 1 LETTER#)
14100 (CALL 1 (E CLEAR_MAILBOX))
14200 (710000 2 LETTER#)
14300 (JRST 0 NOLETT#)
14400 (MOVEI 1 LETTER#)
14500 (MOVEI 2 (QUOTE FIXNUM))
14600 (JCALL 2 (E MAKNUM))
14700 NOLETT#
14800 (MOVEI 1 (QUOTE NIL))
14900 (POPJ P)
15000 NIL
15100
15200 (LAP MAIL_IS_WAITING SUBR)
15300 (CAIE 1 (QUOTE ME))
15400 (JRST 0 HIM#)
15500 (710000 3)
15600 (JRST 0 NOMAIL#)
15700 (JRST 0 MAIL#)
15800 HIM#
15900 (CALL 1 (E SIXBIT))
16000 (40000 1 (C 564155 0 455156))
16100 (JRST 0 NOMAIL#)
16200 (710000 4 1)
16300 (JRST 0 NOMAIL#)
16400 MAIL#
16500 (MOVEI 1 (QUOTE T))
16600 (POPJ P)
16700 NOMAIL#
16800 (MOVEI 1 (QUOTE NIL))
16900 (POPJ P)
17000 NIL
17100
17200 (LAP CLEAR_MAILBOX SUBR)
17300 (402000 0 0 1)
17400 (514000 2 1)
17500 (271000 1 1)
17600 (540000 2 1)
17700 (271000 1 36)
17800 (HRRM 1 BLT#)
17900 BLT#
18000 (251000 2 0)
18100 (MOVEI 1 (QUOTE NIL))
18200 (POPJ P)
18300 NIL
18400
18500 (LAP JOB_EXISTS SUBR)
18600 (CALL 1 (E SIXBIT))
18700 (40000 1 (C 564155 0 455156))
18800 (JRST 0 NO#)
18900 (MOVEI 1 (QUOTE T))
19000 (POPJ P)
19100 NO#
19200 (MOVEI 1 (QUOTE NIL))
19300 (POPJ P)
19400 NIL
19500
19600 (LAP SLEEP SUBR)
19700 (275000 1 577777)
19800 (47000 1 31)
19900 (MOVEI 1 (QUOTE NIL))
20000 (POPJ P)
20100 NIL
20200
20300 (LAP SAVEJOB SUBR)
20400 (MOVEM 2 SAVEXT#)
20500 (CALL 1 (E SIXBIT))
20600 (MOVEM 1 SAVNAM#)
20700 (MOVE 1 SAVEXT#)
20800 (JUMPE 1 SAVACS#)
20900 (CALL 1 (E SIXBIT))
21000 (MOVEM 1 SAVEXT#)
21100 SAVACS#
21200 (MOVEM 0 AC0#)
21300 (MOVE 0 (C 1 0 AC1#))
21400 (251000 0 AC17#)
21500 (MOVE 1 (C SAVE# 0))
21600 (47000 1 400004)
21700 START#
21800 (MOVE 0 (C AC1# 0 1))
21900 (251000 0 17)
22000 (MOVE 0 AC0#)
22100 (MOVEI 1 (QUOTE NIL))
22200 (POPJ P)
22300 SAVE#
22400 (446353 0 0)
22500 SAVNAM#
22600 (0 0)
22700 SAVEXT#
22800 (0 0)
22900 (0 0 START#)
23000 (0 0)
23100 AC0#
23200 (0 0)
23300 AC1#
23400 (0 0)
23500 (0 0)
23600 (0 0)
23700 (0 0)
23800 (0 0)
23900 (0 0)
24000 (0 0)
24100 (0 0)
24200 (0 0)
24300 (0 0)
24400 (0 0)
24500 (0 0)
24600 (0 0)
24700 (0 0)
24800 AC17#
24900 (0 0)
25000 NIL
25100
25200 (LAP SKIPCH SUBR)
25300 (51000 2 1)
25400 (JRST 0 NOCHAR#)
25500 (CALL 1 (E ASCII))
25600 (JCALL 1 (E INTERN))
25700 NOCHAR#
25800 (MOVEI 1 (QUOTE NIL))
25900 (POPJ P)
26000 NIL
26100
26200 (LAP CLEAR_BUFFER SUBR)
26300 (51000 11)
26400 (CALL 0 (E SKIPCH))
26500 (51000 11)
26600 (MOVEI 1 (QUOTE NIL))
26700 (POPJ P)
26800 NIL
26900
27000 (LAP SIXBIT SUBR)
27100 (MOVEI 2 (QUOTE PNAME))
27200 (CALL 2 (E GET))
27300 (HLRZ@ 2 1)
27400 (MOVE 2 0 2)
27500 (MOVEI 3 0)
27600 (HRRZ@ 1 1)
27700 (JUMPE 1 START#)
27800 (HLRZ@ 3 1)
27900 (MOVE 3 0 3)
28000 START#
28100 (402000 0 1)
28200 (MOVEI 7 6)
28300 (MOVE 4 (C 440700 0 2))
28400 (MOVE 5 (C 440600 0 1))
28500 LOOP#
28600 (134000 6 4)
28700 (JUMPE 6 END#)
28800 (275000 6 40)
28900 (136000 6 5)
29000 (367000 7 LOOP#)
29100 END#
29200 (POPJ P)
29300 NIL
29400
29500 (LAP SEND_MAIL SUBR)
29600 (PUSH P 1)
29700 (PUSH P 2)
29800 (PUSH P (C 0 0 (QUOTE NIL) 0))
29900 (PUSH P (C 0 0 (QUOTE NIL) 0))
30000 (PUSH P (C 0 0 (QUOTE NIL) 0))
30100 (CALL 1 (E JOB_EXISTS))
30200 (JUMPE 1 G0007)
30300 G0011 (MOVE 1 -3 P)
30400 (CALL 1 (E STRP))
30500 (JUMPE 1 G0014)
30600 (MOVE 1 -3 P)
30700 (JRST 0 G0013)
30800 G0014 (MOVE 1 -3 P)
30900 (CALL 1 (E EXPLODE))
31000 (MOVEI 2 (QUOTE (/")))
31100 (CALL 2 (E *APPEND))
31200 (MOVEI 2 (QUOTE /"))
31300 (CALL 2 (E XCONS))
31400 (CALL 1 (E READLIST))
31500 G0016
31600 G0013 (MOVEI 2 (QUOTE PNAME))
31700 (CALL 2 (E GET))
31800 (MOVEI 2 (QUOTE SUBR))
31900 (MOVEM 1 -1 P)
32000 (MOVEI 1 (QUOTE SEND))
32100 (CALL 2 (E GET))
32200 (MOVEI 2 (QUOTE FIXNUM))
32300 (CALL 2 (E MAKNUM))
32400 (MOVEI 2 (QUOTE 1))
32500 (CALL 2 (E *PLUS))
32600 (MOVEM 1 0 P)
32700 G0001 (PUSH P (C 0 0 (QUOTE NIL) 0))
32800 G0002 (MOVE 1 -5 P)
32900 (CALL 1 (E MAIL_IS_WAITING))
33000 (JUMPE 1 G0031)
33100 (MOVEI 1 (QUOTE 1))
33200 (CALL 1 (E SLEEP))
33300 (MOVEM 1 0 P)
33400 (JRST 0 G0030)
33500 G0031 (MOVE 1 0 P)
33600 (JRST 0 G0027)
33700 G0034
33800 G0030 (JRST 0 G0002)
33900 G0027 (SUB P (C 0 0 1 1))
34000 (PUSH P -1 P)
34100 (PUSH P -1 P)
34200 (MOVEI 2 (QUOTE 37))
34300 (MOVE 1 -2 P)
34400 (CALL 2 (E *PLUS))
34500 (PUSH P 1)
34600 (PUSH P (C 0 0 (QUOTE NIL) 0))
34700 (PUSH P (C 0 0 (QUOTE NIL) 0))
34800 G0004 (MOVE 1 -4 P)
34900 (JUMPE 1 G0005)
35000 (MOVE 2 -2 P)
35100 (MOVE 1 -3 P)
35200 (CALL 2 (E *GREAT))
35300 (JUMPN 1 G0005)
35400 G0045 (MOVE 1 -4 P)
35500 (MOVEM 1 -7 P)
35600 (MOVE 1 -3 P)
35700 (MOVEI 2 (QUOTE FIXNUM))
35800 (MOVEM 1 -1 P)
35900 (HLRZ@ 1 -7 P)
36000 (CALL 2 (E MAKNUM))
36100 (CALL 1 (E EXAMINE))
36200 (MOVE 2 1)
36300 (MOVE 1 -1 P)
36400 (CALL 2 (E DEPOSIT))
36500 (MOVEM 1 0 P)
36600 (HRRZ@ 1 -4 P)
36700 (MOVEM 1 -4 P)
36800 (MOVE 1 -3 P)
36900 (CALL 1 (E ADD1))
37000 (MOVEM 1 -3 P)
37100 (JRST 0 G0004)
37200 G0005 (MOVE 1 -4 P)
37300 (JUMPN 1 G0055)
37400 (CLEARB 1 -7 P)
37500 (JUMPN 1 G0054)
37600 G0055
37700 G0054 (MOVE 1 0 P)
37800 (SUB P (C 0 0 5 5))
37900 (MOVE 1 -4 P)
38000 (CALL 1 (E SEND))
38100 (JUMPE 1 G0007)
38200 (MOVE 1 -2 P)
38300 (JUMPN 1 G0059)
38400 (MOVEI 1 (QUOTE T))
38500 (JRST 0 G0006)
38600 G0059 (HRRZ@ 1 -2 P)
38700 (MOVEM 1 -1 P)
38800 (JRST 0 G0001)
38900 G0060
39000 G0007 (MOVEI 1 (QUOTE NIL))
39100 G0006 (SUB P (C 0 0 5 5))
39200 (POPJ P)
39300 NIL
39400
39500
39600 (LAP GET_MAIL SUBR)
39700 (MOVEI 2 (QUOTE SRCV))
39800 (JCALL 2 (E RECEIVE_MAIL))
39900 NIL
40000
40100
40200 (LAP WAIT_FOR_MAIL SUBR)
40300 (MOVEI 2 (QUOTE WRCV))
40400 (JCALL 2 (E RECEIVE_MAIL))
40500 NIL
40600
40700
40800 (LAP RECEIVE_MAIL SUBR)
40900 (PUSH P 1)
41000 (PUSH P 2)
41100 (CALL 0 (E GENSYM))
41200 (MOVEI 2 (QUOTE PNAME))
41300 (PUSH P 1)
41400 (CALL 2 (E GET))
41500 (MOVEI 2 (QUOTE FIXNUM))
41600 (HLRZ@ 1 1)
41700 (CALL 2 (E MAKNUM))
41800 (PUSH P 1)
41900 (PUSH P (C 0 0 (QUOTE NIL) 0))
42000 (PUSH P (C 0 0 (QUOTE NIL) 0))
42100 (PUSH P (C 0 0 (QUOTE NIL) 0))
42200 (CALLF@ 0 -5 P)
42300 (MOVEM 1 0 P)
42400 (JUMPE 1 G0070)
42500 G0078
42600 G0067 (PUSH P 0 P)
42700 (MOVEI 2 (QUOTE 37))
42800 (MOVE 1 -1 P)
42900 (CALL 2 (E *PLUS))
43000 (PUSH P 1)
43100 (PUSH P (C 0 0 (QUOTE NIL) 0))
43200 (PUSH P (C 0 0 (QUOTE NIL) 0))
43300 G0068 (MOVE 2 -2 P)
43400 (MOVE 1 -3 P)
43500 (CALL 2 (E *GREAT))
43600 (JUMPE 1 G0085)
43700 (MOVE 2 0 P)
43800 (JRST 0 G0080)
43900 G0085
44000 G0087 (MOVE 2 -3 P)
44100 (MOVEM 2 -1 P)
44200 (MOVE 1 2)
44300 (CALL 1 (E EXAMINE))
44400 (MOVE 2 1)
44500 (MOVE 1 -7 P)
44600 (CALL 2 (E DEPOSIT))
44700 (MOVEI 2 (QUOTE 0))
44800 (CALL 2 (E EQUAL))
44900 (JUMPE 1 G0090)
45000 (MOVEI 2 (QUOTE T))
45100 (MOVEM 2 -6 P)
45200 (MOVEI 2 (QUOTE NIL))
45300 (JRST 0 G0089)
45400 G0090 (MOVE 1 -10 P)
45500 (CALL 1 (E EXPLODEC))
45600 (MOVE 2 1)
45700 G0094
45800 G0089 (MOVE 1 0 P)
45900 (CALL 2 (E *APPEND))
46000 (MOVEM 1 0 P)
46100 (MOVE 2 -6 P)
46200 (JUMPE 2 G0100)
46300 (EXCH 2 1)
46400 (JRST 0 G0080)
46500 G0100
46600 G0101 (MOVE 1 -3 P)
46700 (CALL 1 (E ADD1))
46800 (MOVEM 1 -3 P)
46900 (JRST 0 G0068)
47000 G0080 (MOVE 1 -5 P)
47100 (CALL 2 (E *APPEND))
47200 (SUB P (C 0 0 4 4))
47300 (MOVEM 1 -1 P)
47400 (JUMPN 1 G0108)
47500 (MOVE 1 -6 P)
47600 (JUMPE 1 G0110)
47700 (MOVEI 1 (QUOTE NIL))
47800 (JRST 0 G0109)
47900 G0110 (MOVEI 1 (QUOTE ""))
48000 G0111
48100 G0109 (JRST 0 G0069)
48200 G0108 (CALL 1 (E LAST))
48300 (HLRZ@ 2 1)
48400 (CAIE 2 (QUOTE /"))
48500 (JRST 0 G0114)
48600 (MOVE 1 -6 P)
48700 (JUMPE 1 G0118)
48800 (MOVE 1 -1 P)
48900 (CALL 1 (E REVERSE))
49000 (HRRZ@ 1 1)
49100 (CALL 1 (E REVERSE))
49200 (JRST 0 G0117)
49300 G0118 (MOVE 2 -1 P)
49400 (MOVEI 1 (QUOTE /"))
49500 (CALL 2 (E CONS))
49600 G0122
49700 G0117 (CALL 1 (E READLIST))
49800 (JRST 0 G0069)
49900 G0114 (MOVE 1 -2 P)
50000 (JUMPE 1 G0127)
50100 (MOVE 1 -6 P)
50200 (JUMPE 1 G0129)
50300 (MOVE 1 -1 P)
50400 (JRST 0 G0128)
50500 G0129 (MOVEI 1 (QUOTE /"))
50600 (CALL 1 (E NCONS))
50700 (MOVE 2 1)
50800 (MOVE 1 -1 P)
50900 (CALL 2 (E *APPEND))
51000 (MOVEI 2 (QUOTE /"))
51100 (CALL 2 (E XCONS))
51200 G0130
51300 G0128 (CALL 1 (E READLIST))
51400 (JRST 0 G0069)
51500 G0127 (CALL 0 (E WRCV))
51600 (MOVEM 1 0 P)
51700 (JRST 0 G0067)
51800 G0137
51900 G0070 (MOVEI 1 (QUOTE NIL))
52000 G0069 (SUB P (C 0 0 7 7))
52100 (POPJ P)
52200 NIL
52300
52400
52500
52600 (SETQ IBASE 10.)